home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / SCROLLER < prev    next >
Text File  |  1994-12-13  |  355b  |  5 lines
  1. SCROLLER: procedure;parse arg clr,ro1,co1,ro2,co2,dir,txt;txt=copies(' ',co2-co1)||txt' ';if clr then cls
  2.     do i=ro1 to ro2;lo=1;in=1;hi=length(txt);if dir=2 then d2=(i/2=i%2);if d2=0 then do;lo=hi;hi=1;in=-1;end
  3.     do j=lo to hi by in;maygetchar;if result~='NOCHAR' then leave i;ch=substr(txt,j,co2-co1);transmit ''i';'co1'H'ch;end j;end i
  4.   return
  5.